home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 1 / Sounds Terrific CD (1994)(Weird Science)(Disc 2 of 2)[!][Amiga-PC].iso / modules / g / goldtran.mod < prev    next >
Encoding:
Text File  |  1994-08-04  |  4.0 KB  |  144 lines
  1. Gold transfer mod.  Allows users to give gold to each other.
  2. Belgarath #7 @3314
  3. Thu Dec 05 15:36:42 1991
  4. ***************************Gold Transfer Mod ****************************
  5.  
  6. Load up BBS.C and find this void.  Should be at the top. (At least it is
  7. in Ver 4.12.  In Ver 4.20 it may be elsewhere.
  8.  
  9. void holdphone(int d)
  10. {
  11.  
  12.   if (!ok_modem_stuff)
  13.     return;
  14.   if (no_hangup)
  15.     return;
  16.   if (d) {
  17.     if (!global_xx) {
  18.       if (syscfg.sysconfig & sysconfig_off_hook) {
  19.         set_baud(syscfg.baudrate[syscfg.primaryport]);
  20.         pr1(syscfg.pickupphone);
  21.         xtime=timer();
  22.         global_xx=1;
  23.       }
  24.     }
  25.   } else {
  26.     if (syscfg.sysconfig & sysconfig_off_hook) {
  27.       if (global_xx) {
  28.         dtr(1);
  29.         if (fabs(xtime-timer())<modem_time)
  30.           outs("\r\n\r\nWaiting for modem...");
  31.         while (fabs(xtime-timer())<modem_time)
  32.           ;
  33.         pr1(syscfg.hangupphone);
  34.         imodem();
  35.         global_xx=0;
  36.       }
  37.     }
  38.   }
  39. }
  40.  
  41.  
  42. ==============================================================================
  43.  
  44. Now you need to copy the following void right below it.  (dont copy
  45. these lines or the holdphone void.  Its already there).
  46.  
  47. ==============================================================================
  48.  
  49.  
  50. void transfer()                               /* start gold transfer mod */
  51. {
  52.  
  53.   char s1[81],s2[81];
  54.   long j,tn;
  55.   userrec u;
  56.   read_user(tn,&u);
  57.  
  58.     nl();
  59.     outstr("\x0c");
  60.     pl("4 Gold Transfer System ");
  61.     nl();
  62.     tn=0;
  63.     prt(2,"Give gold to which user?");
  64.     nl();
  65.     outstr(":");
  66.     ansic(5);
  67.     input(s1,35);
  68.     tn=finduser1(s1);
  69.     if (tn>0) {
  70.        strcpy(s2,"1You sure you want to give gold to 3");
  71.        read_user(tn,&u);
  72.        strcat(s2,nam(&u,tn));
  73.        strcat(s2," 1Y/N");
  74.        print("",s2,"");
  75.        if (yn()) {
  76.           nl();
  77.           itoa(thisuser.gold,s2,10);
  78.           strcpy(s1,"5You have2 ");
  79.           strcat(s1,s2);
  80.           strcat(s1," 5Gold pieces.");
  81.           pl(s1);
  82.           prt(2,"Give em how much gold?");
  83.           nl();
  84.           outstr(":");
  85.           input(s2,5);
  86.           j=atoi(s2);
  87.         if ((j>0 & j<=thisuser.gold)) {
  88.           ansic(2);
  89.           outstr(s2);
  90.           pl(" 5gold pieces given.");
  91.           nl();
  92.           read_user(tn,&u);
  93.           u.gold+=j;
  94.           write_user(tn,&u);
  95.           thisuser.gold-=j;
  96.           sprintf(s1,"1%s",nam(&thisuser,usernum));
  97.           strcat(s1," 5gave you 3");
  98.           strcat(s1,s2);
  99.           strcat(s1," 5gold pieces!");
  100.           ssm(tn,0,s1);
  101.           strcpy(s1,"1");
  102.           strcat(s1,nam(&thisuser,usernum));
  103.           strcat(s1," 5gave 3");
  104.           read_user(tn,&u);
  105.           strcat(s1,nam(&u,tn));
  106.           strcat(s1," 2");
  107.           strcat(s1,s2);
  108.           strcat(s1," 5gold pieces!");
  109.           sysoplog(s1);
  110.         } else
  111.         if ((j>0 & j>thisuser.gold)) {
  112.           prt(4," You don't have that much!! ");
  113.           nl();
  114.         }
  115.        } else
  116.          prt(7,"Unknown user.");
  117.          nl();
  118.     }
  119. }                                                  /* Stop gold transfer mod */
  120.  
  121.  
  122.  
  123. ==============================================================================
  124. SEARCH FOR THE FOLLOWING AND ADD THE /T OPTION
  125. ==============================================================================
  126.  
  127.  
  128.  if (strcmp(s,"/E")==0)
  129.     slash_e();
  130.  
  131.   if (strcmp(s,"/T")==0)            /* Start gold Transfer Mod */
  132.     transfer();                      /* Stop gold Transfer Mod */
  133.  
  134. ==============================================================================
  135. YOUR ALL DONE
  136.  
  137. A nice thing about this mod is that if you give gold to another user, they
  138. will automatically find out the next time they log on, who gave them some
  139. gold and how much they gave.
  140.  
  141. DON'T FORGET TO CHANGE YOU MENUS FILE TO REFLECT THE /T
  142. ==============================================================================
  143.  
  144.       5**> 3WWIV Net Origin: 4 Erana's Peace BBS 0